home *** CD-ROM | disk | FTP | other *** search
/ Commodore 64 Scene Diskmags Assortment / Insight_4_1991-05_Insight_Staff.d64 / ..o c p src.tur. < prev    next >
Text File  |  2023-02-26  |  1KB  |  48 lines
  1.  
  2. ;{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{SHIFT-*}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}
  3. ;'insight q&a' column july, 1991 issue
  4. ;
  5. ;adv. opc multicolor hi-res displayer
  6. ;by guardian (q&a column)
  7. ;
  8. ;assembler: turbo assembler 5.01
  9. ;computer : c64 (or c128 in 64 mode.)
  10. ;{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}
  11.  
  12.          *= $1000
  13.  
  14.          sei
  15.          ldx #$00        ;copy
  16. loop     lda $4338,x     ;color data
  17.          sta $d800,x     ;to color ram
  18.          lda $4438,x     ;($d800-$dbff)
  19.          sta $d900,x
  20.          lda $4538,x
  21.          sta $da00,x
  22.          lda $4638,x
  23.          sta $db00,x
  24.          lda $3f40,x     ;copy color
  25.          sta $0400,x     ;data to
  26.          lda $4040,x     ;screen ram
  27.          sta $0500,x     ;($0400-$07ff)
  28.          lda $4140,x
  29.          sta $0600,x
  30.          lda $4240,x
  31.          sta $0700,x
  32.          inx
  33.          bne loop
  34.  
  35.          lda $4329       ;background
  36.          sta $d021       ;color data
  37.  
  38.          lda #$3b        ;enter multi-
  39.          sta $d011       ;-color hi-res
  40.          lda #$d8        ;mode.
  41.          sta $d016
  42.  
  43.          lda #$18
  44.          sta $d018
  45.  
  46. mainlp   jmp mainlp
  47.  
  48.